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TITLE FORSREWRITE_ SF - entry point for FORTRAN REWRITE § SEQUENTIAL FORMATE 
“IDENT /1-011/ File: FORREWRSF.MAR Edit: JAW1 

COPYRIGHT («) 1978, 1980, 1982, 1984 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS. RESER VED 


THIS SOFTWARE IS Cyuigare UNDER A LICENSE AND MAY BE USED AND UITH THe 
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; ABSTRACT: 
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REWRITE pag 15 

a call to FORS 
per anster list 


; MAINTENANCE NOTE: 


ins the entry tt for the FORTRAN 
RMATTED I/0 statement. It is simply 
yas bits in RO which describe the 
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$10_BEG interprets the parameters. | 
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+g FACILITY: FORTRAN Support Library - user callable 
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The transfer vector (RTLVECTOR+ALLGBL) must have the following: 

0 . TRANSFER FORSREWRITE_SF 

0 MASK FORS$$IO_ BEG 

0 BRW FORSREURT TE _SF+2 

6 This puts the correct mask in entry vector, that is FORS$$I0_BEG entry mask. 

00 Furthermore this module must only use RO and R1 

4 since any other register might not be in the entry mask for FORS$IO_BEG. 
3 ; ENVIRONMENT: User access mode; mixture of AST level or not | 
b6 ; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 

00 ; MODIFIED BY: 

00 : . Hastings, 29-July-78 
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-SBTTL HISTORY 


t History 


Edit History for Version 1 
Add comment about vectors. TNH 23-June-78 


Pass arg in RO, not 


07 vances Macro v04-00 
714 CFORRTL.SRCJFORREWRSF MAR; 1 


R, add comments. 


TNH 29-Jul 


Update version number and copyright notice. JBS 1 


Change statement type symbols to 


be LUB 


$K... JBS 


Change statement ty e symbols to be IS8$K..._ JBS 
_ pe e PSE JBS 22-DEC-78 


th directive. 
Add FORSREAD_KF ” 
FORSREAD_IF, FORSREAD_10, FORSWR 
FORSREAD-KU, FORSREWRITE.SU, 
SBL e-hay- 1979 
Remove all 


; Detailed Current Edit History 


KO 
-NOV-78 
07-DEC-78 
11-DEC-78 


FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 


entry polars that need object time formatting, 
n 


putt ing them in FORSENTRY_OBJ so that we can arrange to 
oad the format compiler only when it is needed. 


JBS 26-JUN-1979 


Remove entry point FORSENCODE_MF; we will code a new module 


for it and F 
improves. JBS 02-JUL-1979 


Do lLikewuse for FORSREAD_DU and FORSWRITE_DU. JBS 


Remove all entry points except FORSREWRITE_SF; each 


others gets its own module so we can selectivel 


the necessary UDF and REC modul 
New parameter format for FOR$$I10 
Change BRW FORS$$I0_BEG+2 to JMP 


es. JB 
BEG. 
G*FORSS 


§ 09-JUL-19 


to see how much I/0 initiation time 


03-JUL-1979 
of the 
load 

79 


SBL 5-Dec-1979 


10_BEG+2. 


JAW 21-Feb-1981 
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6-SEP-1984 11:00:14 CFORRTL.SRCJFORREWRSF .MAR; 1 
-SBTTL DECLARATIONS 

; INCLUDE FILES: 
SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


; EXTERNAL SYMBOLS: 
-DSABL GBL ; Declare all external symbols 
1 -EXTRN FORSSIO_BEG ; common 1/0 statement processing 
The following references are to make sure the necessary UDF and REC 
modules are loaded. These are the routines which are called through 
the dispatch tables in FORSSDISPAT. 
-EXTRN FORSSUDF_WFO, FORSSUDF _WF1, FORSSUDF WFO 
SEXTRN FORSSRECWXFO, FORSSREC_WXF1, FORSSREC_WXF9 
MACROS: 
NONE 


PSECT DECLARATIONS: 
-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


: EQUATED SYMBOLS: 


; OWN STORAGE: 
NONE 
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3 -SBTTL FORSREWRITE_SF = REWRITE Sequential formatted 
++ 

09 FUNCTIONAL DESCRIPTION: 

$0 Initialize the FORTRAN I/0 system to perform 

8 a REWRITE sequential formatted 1/0 statement. 

88 CALLING SEQUENCE: 

00 CALL FORSREWRITE_SF (unit.rl.v, format adr.mbu.ra 

$8 C, err_adr.j.r C, end_adr.j.rJJ) 

3 INPUT PARAMETERS: 

00 unit.rl.v logical unit number 

00 format_adr.mbu.ra adr. of congtted format byte array 

00 err_adr.j.rJ optional ERR= address 

op endoadr.j.r optional END= address 


IMPLICIT INPUTS: 

NONE except those used by FORS$$IO_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORS$S$I0_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$$I0_BEG. 
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0000° FORSREWRITE_SF:: «MASK  FORSS$IO_BEG 
50 OD 9A MOVZBL #ISBSK_ST_TY_WXF, RO ; Statement type 
00000002'GF 17 JMP G*FORS$$I0_BEG+2 ; branch past call mask 
END 


Symbol table 


FORSS$IO_ BEG teeeeeee 
FORSSREC WXFO kketeeee 
FORSSREC_WXF 1 teeerere 
FORSSREC_WXF9 teentene 
FORSSUDF WFO eeteeeee 
FORSSUDF —WF 1 teeeeeee 
FORSSUDF _WF9 tereenee 
FORSREWRITE_SF 00000000 RG 
ISBSK_ST_TY_WxF = 0000000D 
PSECT name Allocation 
« 03 « 00000000 
_FORSCODE 00000008 
Phase Page faults 
Initialization 34 0 
Command processing 136 0 
Pass 1 124 0 
Symbol table sort 0 0 
Pass 2 46 0 
Symbol table output 3 0 
Psect synopsis output 2 0 
Cross-reference output 0 0 
Assembler run totals 347 0 


The working set Limit was 1050 press 
6671 bytes (14 pages) of virtua 


176 source Lines were read in Pass 1, 


Macro Library name 
“$255$DUA28: FORRTL.OBJJFORRTL.MLB; 1 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 
TOTALS (all Libraries) 
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memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space at jocetes to hold 187 non-local and 0 local symbols. 
8 object records in Pass 2 


9 pages of virtual memory were used to pon phe 


meme remo ene meer meee emo eee a $ 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORREWRSF /OBJ=OBJ$:FORREWRSF MSRC$:FORREWRSF /UPDATE=(ENHS: FORREWRSF ) +L 1 
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